home *** CD-ROM | disk | FTP | other *** search
/ PCMania 32 / PCMania CD32_2.iso / bioforge / script / damage.scp < prev    next >
Text File  |  1995-01-22  |  2KB  |  220 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48. { LEXMANAGEHEAD _DMG
  49. .ÇéÇä = ~ÇÇ 
  50.  
  51. w CURFIG RESTORE MDH1F
  52.  
  53.  
  54. I .ÇéÇÇ < 1 THEN
  55. {
  56. w CURFIG DRAWONLY MDH1F PICTURE 14
  57. }
  58. E 
  59. {
  60.  
  61. I @ÇÅ ~ÇÇ 1 THEN
  62. {
  63. w CURFIG DRAW MDH1F PICTURE 11
  64. I @ÇÅ ~ÇÇ 17 THEN
  65. w CURFIG DRAW MDH1F PICTURE 12 
  66. I @ÇÅ ~ÇÇ 18 THEN
  67. w CURFIG DRAW MDH1F PICTURE 13 
  68. }
  69. E 
  70. {
  71. I @ÇÅ ~ÇÇ 17 || @ÇÅ ~ÇÇ 18 THEN
  72. w CURFIG DRAW MDH1F PICTURE 7 
  73. I @ÇÅ ~ÇÇ 16 THEN
  74. w CURFIG DRAW MDH1F PICTURE 6 
  75.  
  76. }
  77.  
  78. }
  79. }
  80.  
  81.  
  82.  
  83. { LEXHEAD _WHICH_FLAG _NEW_VALUE
  84. P ~Çé 
  85.  
  86. @Ç¢ LEX
  87. ~Çé = .ÇéÇä 
  88. I ~Çü = 0 THEN
  89. b ~Çé ~ÇÇ 
  90. E 
  91. {
  92. I @ÇÅ ~Çé ~ÇÇ THEN
  93. é 0
  94. a ~Çé ~ÇÇ 
  95. }
  96. @Ç¥ LEXMANAGEHEAD ~Çé 
  97. é 1
  98. }
  99. { BLINK
  100. I @Ç¥ LEXHEAD 16 1 THEN
  101. {
  102. W 4
  103. @Ç¥ LEXHEAD 16 0
  104. }
  105. }
  106. { GROWL _DURATION
  107. I @Ç¥ LEXHEAD 17 1 THEN
  108. {
  109. W ~ÇÇ SECONDS
  110. @Ç¥ LEXHEAD 17 0
  111. }
  112. }
  113.  
  114. { GRIMACE _DURATION
  115. I @Ç¥ LEXHEAD 18 1 THEN
  116. {
  117. W ~ÇÇ SECONDS
  118. @Ç¥ LEXHEAD 18 0
  119. }
  120. }
  121. { LEX_WOUNDS
  122. P ~ÇÇ 
  123. P ~Çü 
  124. P ~Çé 
  125. P ~Çâ 
  126. P ~Çä 
  127. P ~Çà 
  128. P ~Çå 
  129. P ~Çç 
  130. I @Ç⌐ LEXMIR THEN
  131. é 
  132. E 
  133. I @Ç⌐ HARD THEN @Ç¥ HARD_WOUNDS 
  134. E 
  135. {
  136. ~Çä = .ÇéÇä 
  137. ~ÇÇ = @Ç» ~Çä 1 10 
  138.  
  139. ~Çü = .ÇéÇÇ / 10
  140. ~Çü = 10 - ~Çü 
  141. I ~Çü < 0 THEN ~Çü = 0
  142. I ~Çü > 10 THEN ~Çü = 10
  143. :TOP
  144. ~Çé = 0
  145.  
  146. I ~ÇÇ < ~Çü THEN
  147. {
  148. ~Çé = 1
  149. :ADDATWHATPOINT
  150. ~Çâ = @Çà 1 10 
  151. I @ÇÅ ~Çä ~Çâ = 1 THEN J #Çç 
  152. a ~Çä ~Çâ 
  153. ~ÇÇ += 1
  154. }
  155.  
  156. I ~ÇÇ > ~Çü THEN
  157. {
  158. ~Çé = 1
  159. :REMOVEATWHATPOINT
  160. ~Çâ = @Çà 1 10 
  161. I @ÇÅ ~Çä ~Çâ = 0 THEN J #Çê 
  162. b ~Çä ~Çâ 
  163. ~ÇÇ -= 1
  164. }
  165. I ~Çé = 1 THEN J #Çå
  166.  
  167.  
  168. w CURFIG RESTORE ALL
  169. I @ǃ THEN
  170. {
  171. w CURFIG CLEAR MDHNRR1 PICTURE 2
  172. w CURFIG CLEAR MDHNRF1 PICTURE 3
  173. w CURFIG CLEAR MDHNLL1 PICTURE 4
  174. w CURFIG CLEAR MDHNLF3 PICTURE 5
  175. }
  176.  
  177. @Ç¥ LEXMANAGEHEAD ~Çä 
  178. ~Çå = 14
  179. I @ÇÅ ~Çä 2 THEN ~Çå += 1
  180. I @ÇÅ ~Çä 3 THEN ~Çå += 1
  181. I @ÇÅ ~Çä 4 THEN ~Çå += 1
  182. I ~Çå > 14 THEN
  183. w CURFIG DRAWONLY MDTORSF PICTURE ~Çå 
  184. ~Çç = 17
  185. I @ÇÅ ~Çä 5 THEN ~Çç += 1
  186. I @ÇÅ ~Çä 6 THEN ~Çç += 1
  187. I ~Çç > 17 THEN
  188. w CURFIG DRAWONLY MDTB3 PICTURE ~Çç 
  189. I @ÇÅ ~Çä 7 THEN
  190. {
  191.  
  192. w CURFIG DRAWONLY MDALF1 PICTURE 20
  193.  
  194.  
  195.  
  196. }
  197. I @ÇÅ ~Çä 8 THEN
  198. {
  199. w CURFIG DRAWONLY MDARF1 PICTURE 22
  200. w CURFIG DRAWONLY MDARR1 PICTURE 23
  201. }
  202. I @ÇÅ ~Çä 9 THEN
  203. {
  204. w CURFIG DRAWONLY MDLGLF PICTURE 24
  205. w CURFIG DRAWONLY MDLGLL PICTURE 25
  206. w CURFIG DRAWONLY MDLEGLR PICTURE 26
  207. }
  208. I @ÇÅ ~Çä 10 THEN
  209. {
  210. w CURFIG DRAWONLY MDLGRF PICTURE 27
  211. w CURFIG DRAWONLY MDLGRR PICTURE 28
  212. }
  213. .ÇéÇä = ~Çä 
  214. }
  215. }
  216.  
  217.  
  218.  
  219. //$ 26 - version number
  220.